   setdisplay(320,200,32,1):paper(0xFFFFFF):ink(0x000000):pen(0x000000):cls
   dim a$:dim b$[10]:dim c$[10]
sub sharearray
   shared a$:shared b$[]:dim c$[10]
   a$="shared"
   b$[2]="array shared":c$[3]="not shared array"
   printS("from inside the sub")
   printS("a$= "+a$)
   printS("b$[2]= "+b$[2])
   printS("c$[3]= "+c$[3]) 
 end sub
sharearray
   prints(""):prints("from the module")
   prints("a$= "+a$)
   prints("b$[2]= "+b$[2])
   prints("c$[3]= "+c$[3]) 
waitKey
